home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / totsrc.zip / TOTREAL.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  981b  |  40 lines
  1. {               Copyright 1991 TechnoJock Software, Inc.               }
  2. {                          All Rights Reserved                         }
  3. {                         Restricted by License                        }
  4.  
  5. {                             Build # 1.00                             }
  6.  
  7. Unit totReal;
  8. {$I TOTFLAGS.INC}
  9.  
  10. INTERFACE
  11.  
  12. {$IFNDEF FLOAT}
  13.     {$IFNDEF FLOATEM}
  14.         Type   single = real;
  15.                double = real;
  16.                extended = real;
  17.                comp = real;
  18.     {$ENDIF}
  19. {$ENDIF}
  20.  
  21. procedure RealInit;
  22.  
  23. IMPLEMENTATION
  24. {|||||||||||||||||||||||||||||||||||||||||||||||}
  25. {                                               }
  26. {     U N I T   I N I T I A L I Z A T I O N     }
  27. {                                               }
  28. {|||||||||||||||||||||||||||||||||||||||||||||||}
  29. procedure RealInit;
  30. begin
  31. end;
  32.  
  33. {end of unit - add intialization routines below}
  34. {$IFNDEF OVERLAY}
  35. begin
  36.    RealInit;
  37. {$ENDIF}
  38. end.
  39. end.
  40.